﻿Imports System.Windows.Forms

Public Class MostrarReporteEvaluacionEmpleado

    Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
        Me.DialogResult = System.Windows.Forms.DialogResult.OK
        Me.Close()
    End Sub

    Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
        Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
        Me.Close()
    End Sub

    Private Sub MostrarReporteEvaluacionEmpleado_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    ''' <summary>
    ''' Constructor del reporte
    ''' </summary>
    ''' <param name="p_identificacion">Identificacion del Empleado</param>
    ''' <remarks>Creado Por: Roberto Fiatt, Fecha: 12/08/2010</remarks>
    Public Sub New(ByVal p_identificacion As String)

        ' This call is required by the Windows Form Designer.
        InitializeComponent()

        ' Add any initialization after the InitializeComponent() call.
        Try
            Dim reporte As New ReporteResultadoEvaluacionEmpleado
            reporte.SetParameterValue("p_identificacion", p_identificacion)
            crvRestultadoEvaluacion.ReportSource = reporte
        Catch ex As Exception
            MsgBox("No existe el empleado.")
        End Try


    End Sub
End Class
